home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / regiwppr / module1.bas < prev    next >
BASIC Source File  |  1998-01-16  |  574b  |  24 lines
  1. Attribute VB_Name = "Module1"
  2. Public Sub Main()
  3.  
  4.     Load TitleScreen
  5.     
  6.     With TitleScreen.RegWizardPro1
  7.         .AppTitle = "RWPro Sample Applicaton"
  8.         .AutoReRegister = True
  9.         .DateSensitive = False
  10.         .EncryptionKey = "SampleApplicationKeyHere"
  11.         .EvaluationType = TimesRun
  12.         .Mask = "RWS-#####-^^^^&-^&#^&"
  13.         .SystemDependent = True
  14.         .RegInfo = True
  15.         .ValidPeriod = 30
  16.         .ProgramRun
  17.         If .Registered = False Then .ShowRegDialog
  18.     End With
  19.  
  20.     TitleScreen.Show
  21.     
  22.     
  23. End Sub
  24.